perm filename REVAL.TES[F75,JMC] blob sn#196438 filedate 1976-01-09 generic text, type C, neo UTF8
COMMENT āŠ—   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	(DE VUIL (X Y) (IF (EQUAL X @0) (ADD1 Y) (IF (EQUAL Y @0) (VUIL (SUB1 X) @1)
C00003 ENDMK
CāŠ—;
(DE VUIL (X Y) (IF (EQUAL X @0) (ADD1 Y) (IF (EQUAL Y @0) (VUIL (SUB1 X) @1)
	(VUIL (SUB1 X) (VUIL X (SUB1 Y))))))

(SETQ FOO @(VUIL @0 @0))

(SETQ FOO1 @(VUIL @2 @1))

(DE MANNA (X Y) (IF (EQUAL X @0) @1 (MANNA (SUB1 X) (MANNA (DIFFERENCE X Y) Y))))

(SETQ MANNAT1 @(MANNA @0 @0))

(SETQ MANNAT2 @(MANNA @2 @1))